perm filename P.F4[1,LCS] blob sn#085777 filedate 1974-02-02 generic text, type T, neo UTF8
00100	10	TYPE 1
00200		ACCEPT 2,A,B,C,D,E,F
00300	1	FORMAT(' TYPE NUMBERS')
00400	2	FORMAT(6F)
00500		X=A+B+C+D+E+F
00600		TYPE 3 ,X
00700	3	FORMAT(F10.3)
00800		GO TO 10
00900		END